home *** CD-ROM | disk | FTP | other *** search
/ CD Classic 39 / CD CLASSIC #39 (1998).iso / EMPRESA / visio / Vistdstd / Install / Data.Z / Selstenc.FRM (.txt) < prev    next >
Visual Basic Form  |  1997-06-06  |  11KB  |  333 lines
  1. VERSION 4.00
  2. Begin VB.Form frmSelectStencil 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   4455
  7.    ClientLeft      =   1035
  8.    ClientTop       =   2535
  9.    ClientWidth     =   6480
  10.    BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   4860
  21.    Icon            =   "SELSTENC.frx":0000
  22.    Left            =   975
  23.    LinkTopic       =   "Form3"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   4455
  27.    ScaleWidth      =   6480
  28.    Top             =   2190
  29.    Width           =   6600
  30.    Begin VB.CommandButton cmdBack 
  31.       Appearance      =   0  'Flat
  32.       BackColor       =   &H80000005&
  33.       Caption         =   "< &Back"
  34.       Enabled         =   0   'False
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "MS Sans Serif"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   375
  45.       Left            =   2700
  46.       TabIndex        =   2
  47.       Top             =   3960
  48.       Width           =   1155
  49.    End
  50.    Begin VB.CommandButton cmdNext 
  51.       Appearance      =   0  'Flat
  52.       BackColor       =   &H80000005&
  53.       Caption         =   "Next >"
  54.       Default         =   -1  'True
  55.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   8.25
  58.          Charset         =   0
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   375
  65.       Left            =   3840
  66.       TabIndex        =   0
  67.       Top             =   3960
  68.       Width           =   1155
  69.    End
  70.    Begin VB.CommandButton cmdCancel 
  71.       Appearance      =   0  'Flat
  72.       BackColor       =   &H80000005&
  73.       Caption         =   "Cancel"
  74.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  75.          Name            =   "MS Sans Serif"
  76.          Size            =   8.25
  77.          Charset         =   0
  78.          Weight          =   400
  79.          Underline       =   0   'False
  80.          Italic          =   0   'False
  81.          Strikethrough   =   0   'False
  82.       EndProperty
  83.       Height          =   375
  84.       Left            =   5160
  85.       TabIndex        =   6
  86.       Top             =   3960
  87.       Width           =   1155
  88.    End
  89.    Begin Threed.SSPanel pnlStndoc 
  90.       Height          =   3390
  91.       Left            =   180
  92.       TabIndex        =   3
  93.       Top             =   180
  94.       Width           =   1950
  95.       _Version        =   65536
  96.       _ExtentX        =   3440
  97.       _ExtentY        =   5980
  98.       _StockProps     =   15
  99.       ForeColor       =   4210752
  100.       BackColor       =   8421376
  101.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  102.          Name            =   "MS Sans Serif"
  103.          Size            =   8.25
  104.          Charset         =   0
  105.          Weight          =   700
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       BevelOuter      =   1
  111.       Begin VB.Image imgStndoc 
  112.          Appearance      =   0  'Flat
  113.          Height          =   3360
  114.          Left            =   0
  115.          Picture         =   "SELSTENC.frx":030A
  116.          Top             =   0
  117.          Width           =   1920
  118.       End
  119.    End
  120.    Begin Threed.SSFrame Frame3D1 
  121.       Height          =   1095
  122.       Left            =   2220
  123.       TabIndex        =   1
  124.       Top             =   1440
  125.       Width           =   4215
  126.       _Version        =   65536
  127.       _ExtentX        =   7435
  128.       _ExtentY        =   1931
  129.       _StockProps     =   14
  130.       Caption         =   "&Select Stencil"
  131.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  132.          Name            =   "MS Sans Serif"
  133.          Size            =   8.25
  134.          Charset         =   0
  135.          Weight          =   400
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       Begin VB.ComboBox Combo1 
  141.          Appearance      =   0  'Flat
  142.          BackColor       =   &H00FFFFFF&
  143.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  144.             Name            =   "MS Sans Serif"
  145.             Size            =   8.25
  146.             Charset         =   0
  147.             Weight          =   400
  148.             Underline       =   0   'False
  149.             Italic          =   0   'False
  150.             Strikethrough   =   0   'False
  151.          EndProperty
  152.          ForeColor       =   &H00000000&
  153.          Height          =   315
  154.          Left            =   120
  155.          Sorted          =   -1  'True
  156.          Style           =   2  'Dropdown List
  157.          TabIndex        =   5
  158.          Top             =   480
  159.          Width           =   3975
  160.       End
  161.    End
  162.    Begin VB.Line Line2 
  163.       BorderColor     =   &H00FFFFFF&
  164.       X1              =   180
  165.       X2              =   6300
  166.       Y1              =   3795
  167.       Y2              =   3795
  168.    End
  169.    Begin VB.Label Label1 
  170.       Appearance      =   0  'Flat
  171.       BackColor       =   &H00C0C0C0&
  172.       Caption         =   "Which stencil do you want to report on?  Select a stencil from the list of open stencils."
  173.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  174.          Name            =   "MS Sans Serif"
  175.          Size            =   8.25
  176.          Charset         =   0
  177.          Weight          =   400
  178.          Underline       =   0   'False
  179.          Italic          =   0   'False
  180.          Strikethrough   =   0   'False
  181.       EndProperty
  182.       ForeColor       =   &H80000008&
  183.       Height          =   435
  184.       Left            =   2280
  185.       TabIndex        =   4
  186.       Top             =   240
  187.       Width           =   4095
  188.    End
  189. Attribute VB_Name = "frmSelectStencil"
  190. Attribute VB_Creatable = False
  191. Attribute VB_Exposed = False
  192. Option Explicit
  193. Private Sub Cancel_Click()
  194.     End
  195. End Sub
  196. Private Sub cmdCancel_Click()
  197.     End
  198. End Sub
  199. Private Sub cmdNext_Click()
  200.     If formValid() = True Then
  201.         Hide
  202.         frmSelectLook.Top = Top
  203.         frmSelectLook.left = left
  204.         frmSelectLook.Show
  205.     End If
  206. End Sub
  207. Private Sub First_Click()
  208.     Beep
  209. End Sub
  210. Private Sub Form_Load()
  211.     Dim stat
  212.     Dim doc As Visio.Document
  213.     Dim docs As Visio.Documents
  214.     Dim i
  215.     Dim template
  216.     ' Make sure Visio is running.
  217.     '
  218.     appConnect
  219.     ' Initialize application.
  220.     '
  221.     appInit
  222.     'Set initial form position
  223.     Top = (Screen.Height - frmSelectStencil.Height) / 2
  224.     left = (Screen.Width - frmSelectStencil.Width) / 2
  225.     ' Initialize form.
  226.     '
  227.     formInit frmSelectStencil
  228.     ' Center the picture
  229.     imgStndoc.Top = pnlStndoc.Height / 2 - imgStndoc.Height / 2
  230.     imgStndoc.left = pnlStndoc.Width / 2 - imgStndoc.Width / 2
  231.     ' Initialize controls.
  232.     '
  233. '    first.Enabled = False
  234. '    previous.Enabled = False
  235.     'Check if Visio is running in-place
  236.     Call CheckIfInPlace
  237.     ' Fill combo box with the list of open stencils.
  238.     ' It is an error if there are no open stencils.
  239.     '
  240.     Set docs = g_appVisio.Documents
  241.     For i = 1 To docs.Count
  242.         Set doc = docs(i)
  243.         If UCase(Right(doc.Name, 3)) = "VSS" Then
  244.             combo1.AddItem doc.FullName
  245.         End If
  246.     Next
  247.     If combo1.ListCount > 0 Then
  248.         combo1.ListIndex = 0
  249.     Else
  250.         stat = appMessage(ERR_FATAL, ERR_NOSTENCILS)
  251.     End If
  252.     '   Create new document.
  253.     '
  254.     On Error GoTo lblTemplateError
  255.     template = App.Path & "\" & "StnDoc.VST"
  256.     Debug.Print "Template = " & template
  257.     Set gDocDraw = g_appVisio.Documents.Add(template)
  258.     Set gWinDraw = g_appVisio.ActiveWindow
  259. Exit Sub
  260. lblTemplateError:
  261.     If InStr(Error, VB_ERROR_STRING_OPENFILES) > 0 Then
  262.         MsgBox ERR_OPENFILES, 48
  263.     Else
  264.         MsgBox ERR_NOTEMPLATE & template & Chr(10) & ERR_NOTEMPLATE2, 48
  265.     End If
  266.     End
  267. Exit Sub
  268. End Sub
  269. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  270.     End
  271. End Sub
  272. '   Validate form settings.
  273. Private Function formValid()
  274.     Dim stencil As Visio.Document
  275.     Dim master As Visio.master
  276.     Dim masters As Visio.masters
  277.     Dim pageSheet As Visio.shape         ' background page's page sheet
  278.     Dim masterSheet As Visio.shape       ' master's page sheet
  279.     Dim masterDrawingScale
  280.     Dim masterPageScale
  281.     Dim pageDrawingScale
  282.     Dim pagePageScale
  283.     Dim drawingScale
  284.     Dim pageScale
  285.     Dim pageWidth
  286.     Dim pageHeight
  287.     Dim stat
  288.     formValid = True    ' default return value
  289.     '   Get stencil name
  290.     '
  291.     gDoc.Filename = combo1.text
  292.     '   Get drawing scale and page scale.
  293.     '
  294.     Set stencil = g_appVisio.Documents(gDoc.Filename)
  295.     Set masters = stencil.masters
  296.     If masters.Count = 0 Then
  297.         stat = appMessage(ERR_FATAL, ERR_NOMASTERS)
  298.     End If
  299.     '   We assume that there is at least one master and that
  300.     '   all masters in the stencil have the same scale.
  301.     '
  302.     Set master = masters(1)     ' assume all masters have same scale
  303.     Set masterSheet = master.Shapes("ThePage")
  304.     ' Page setup for background page.
  305.     '
  306.     Set gPageBack = gDocDraw.Pages.Item(1)
  307.     gPageBack.Name = STR_BACKGROUND
  308.     gPageBack.Background = True
  309.     ' Set page scale and size for background page.
  310.     '
  311.     Set pageSheet = gPageBack.Shapes("ThePage")
  312.     masterDrawingScale = masterSheet.Cells("DrawingScale").Formula
  313.     masterPageScale = masterSheet.Cells("PageScale").Formula
  314.     pageDrawingScale = pageSheet.Cells("DrawingScale").Formula
  315.     pagePageScale = pageSheet.Cells("PageScale").Formula
  316.     If (masterDrawingScale <> pageDrawingScale Or masterPageScale <> pagePageScale) Then
  317.         ' Drawing Scale = Custom
  318.         pageSheet.Cells("DrawingScaleType").Formula = 3
  319.         pageSheet.Cells("DrawingScale").Formula = masterDrawingScale
  320.         pageSheet.Cells("PageScale").Formula = masterPageScale
  321.         ' Drawing Size = Dimensions
  322.         drawingScale = masterSheet.Cells("DrawingScale")
  323.         pageScale = masterSheet.Cells("PageScale")
  324.         pageHeight = pageSheet.Cells("PageHeight")
  325.         pageWidth = pageSheet.Cells("PageWidth")
  326.         pageSheet.Cells("PageHeight").Formula = pageHeight * drawingScale / pageScale
  327.         pageSheet.Cells("PageWidth").Formula = pageWidth * drawingScale / pageScale
  328.     End If
  329. End Function
  330. Private Sub Previous_Click()
  331.     Beep
  332. End Sub
  333.